Insitu_Filter Graphs
Althea Marks
11/12/2019
Filtration Rates (L/hr/m^2) predicted by Total Particulate Matter (ug/L) of seston 
##
## Call:
## lm(formula = L_hr_m2 ~ Avg_TPM, data = Filter_data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2358.26 -36.11 170.07 415.39 971.66
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -127.7 224.0 -0.570 0.576
## Avg_TPM 255.7 9660.4 0.026 0.979
##
## Residual standard error: 786.8 on 18 degrees of freedom
## Multiple R-squared: 3.894e-05, Adjusted R-squared: -0.05551
## F-statistic: 0.0007009 on 1 and 18 DF, p-value: 0.9792
Filtration Rates (L/hr/m^2) predicted by Organic Content of seston 
##
## Call:
## lm(formula = L_hr_m2 ~ Avg_OC_Ratio, data = Filter_data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2387.08 -51.87 213.60 398.26 995.60
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -835.0 1956.0 -0.427 0.675
## Avg_OC_Ratio 918.2 2516.1 0.365 0.719
##
## Residual standard error: 783.9 on 18 degrees of freedom
## Multiple R-squared: 0.007344, Adjusted R-squared: -0.0478
## F-statistic: 0.1332 on 1 and 18 DF, p-value: 0.7194
##
## Call:
## lm(formula = L_hr_m2 ~ Avg_OC_Ratio, data = (Filter_data %>%
## filter(Site == "Deanza")))
##
## Residuals:
## Min 1Q Median 3Q Max
## -1061.55 -52.00 -13.55 80.86 1027.23
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3719 2284 -1.628 0.148
## Avg_OC_Ratio 4926 3053 1.614 0.151
##
## Residual standard error: 571.3 on 7 degrees of freedom
## Multiple R-squared: 0.2711, Adjusted R-squared: 0.167
## F-statistic: 2.604 on 1 and 7 DF, p-value: 0.1506
##
## Call:
## lm(formula = L_hr_m2 ~ Avg_OC_Ratio, data = (Filter_data %>%
## filter(Site == "Morro Bay")))
##
## Residuals:
## 1 2 3
## -139.0 307.9 -168.9
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1671 2548 0.656 0.630
## Avg_OC_Ratio -2156 3421 -0.630 0.642
##
## Residual standard error: 377.7 on 1 degrees of freedom
## Multiple R-squared: 0.2843, Adjusted R-squared: -0.4314
## F-statistic: 0.3972 on 1 and 1 DF, p-value: 0.642
##
## Call:
## lm(formula = L_hr_m2 ~ Avg_OC_Ratio, data = (Filter_data %>%
## filter(Site == "San Rafael")))
##
## Residuals:
## 1 2 3 4
## 487.92 -293.42 -118.05 -76.45
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9539 4429 -2.154 0.164
## Avg_OC_Ratio 10948 5136 2.132 0.167
##
## Residual standard error: 414.7 on 2 degrees of freedom
## Multiple R-squared: 0.6944, Adjusted R-squared: 0.5416
## F-statistic: 4.544 on 1 and 2 DF, p-value: 0.1667
##
## Call:
## lm(formula = L_hr_m2 ~ Avg_OC_Ratio, data = (Filter_data %>%
## filter(Site == "Shellmaker")))
##
## Residuals:
## 1 2 3 4
## -386.3 204.9 -1001.7 1183.0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 28222 17580 1.605 0.250
## Avg_OC_Ratio -36992 22659 -1.633 0.244
##
## Residual standard error: 1139 on 2 degrees of freedom
## Multiple R-squared: 0.5713, Adjusted R-squared: 0.357
## F-statistic: 2.665 on 1 and 2 DF, p-value: 0.2442
Filtration Rate (L/hr/m^2) predicted by Temperature (Linear Model, 95% CI) 
##
## Call:
## lm(formula = L_hr_m2 ~ Temp_C_Up, data = Filter_data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2366.48 -50.36 184.98 368.46 1078.46
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 874.45 1504.45 0.581 0.568
## Temp_C_Up -51.46 77.02 -0.668 0.512
##
## Residual standard error: 777.2 on 18 degrees of freedom
## Multiple R-squared: 0.0242, Adjusted R-squared: -0.03001
## F-statistic: 0.4465 on 1 and 18 DF, p-value: 0.5125
Filtration Rate (L/hr/m^2) predicted by Salinity (Linear Model, 95% CI) 
##
## Call:
## lm(formula = L_hr_m2 ~ Sal_ppt_Up, data = Filter_data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2308.0 -100.8 167.4 410.9 895.4
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1676.75 2263.90 -0.741 0.468
## Sal_ppt_Up 44.52 64.72 0.688 0.500
##
## Residual standard error: 776.7 on 18 degrees of freedom
## Multiple R-squared: 0.02561, Adjusted R-squared: -0.02852
## F-statistic: 0.4732 on 1 and 18 DF, p-value: 0.5003
##
## Call:
## lm(formula = L_hr_m2 ~ Chl_ug_L_Up, data = Filter_data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2202.5 -144.0 165.6 393.4 1169.8
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -648.5 424.3 -1.528 0.144
## Chl_ug_L_Up 137.3 102.0 1.346 0.195
##
## Residual standard error: 750 on 18 degrees of freedom
## Multiple R-squared: 0.09139, Adjusted R-squared: 0.04091
## F-statistic: 1.81 on 1 and 18 DF, p-value: 0.1952
##
## Call:
## lm(formula = L_hr_m2 ~ Turbidity_NTU_Up, data = Filter_data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2343.65 -36.63 177.93 411.33 983.39
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -153.810 242.382 -0.635 0.534
## Turbidity_NTU_Up 3.329 18.676 0.178 0.861
##
## Residual standard error: 786.1 on 18 degrees of freedom
## Multiple R-squared: 0.001762, Adjusted R-squared: -0.0537
## F-statistic: 0.03176 on 1 and 18 DF, p-value: 0.8605
TPM vs OC 
Plot individual Sites TPM vs OC 
Bivalve Density Graphs
Olympia DTW predicted by Shell Length - Newport, CA 
##
## Call:
## lm(formula = tissue_dry_weight_g ~ length_mm, data = NPD_oly)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15075 -0.04117 -0.02310 0.00174 1.14379
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.069933 0.067744 -1.032 0.30534
## length_mm 0.005756 0.002092 2.752 0.00748 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1464 on 73 degrees of freedom
## Multiple R-squared: 0.09396, Adjusted R-squared: 0.08155
## F-statistic: 7.571 on 1 and 73 DF, p-value: 0.007477
## Warning in FUN(X[[i]], ...): NaNs produced
## Warning in FUN(X[[i]], ...): NaNs produced
## Warning in FUN(X[[i]], ...): NaNs produced## Warning: Removed 1 rows containing non-finite values (stat_smooth).## Warning: Removed 1 rows containing missing values (geom_point).
## Warning in eval(predvars, data, env): NaNs produced##
## Call:
## lm(formula = log10(tissue_dry_weight_g) ~ log10(length_mm), data = NPD_oly)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.54538 -0.15794 0.00082 0.12580 1.14545
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.9899 0.4398 -9.071 1.54e-13 ***
## log10(length_mm) 1.9427 0.2956 6.572 6.73e-09 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2853 on 72 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.375, Adjusted R-squared: 0.3663
## F-statistic: 43.19 on 1 and 72 DF, p-value: 6.733e-09
## Warning in FUN(X[[i]], ...): NaNs produced## Warning in FUN(X[[i]], ...): NaNs produced
## Warning in FUN(X[[i]], ...): NaNs produced## Warning: Removed 1 rows containing non-finite values (stat_smooth).## Warning: Removed 1 rows containing missing values (geom_point).
## Warning in eval(predvars, data, env): NaNs produced##
## Call:
## lm(formula = log10(tissue_dry_weight_g) ~ length_mm, data = NPD_oly)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.63412 -0.14706 0.00538 0.12412 1.11698
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.94496 0.13486 -14.422 < 2e-16 ***
## length_mm 0.02660 0.00415 6.411 1.32e-08 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2879 on 72 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.3634, Adjusted R-squared: 0.3545
## F-statistic: 41.1 on 1 and 72 DF, p-value: 1.323e-08